-- card: 14858 from stack: in
-- bmap block id: 15209
-- flags: 0000
-- background id: 2785
-- name: 


-- part 2 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=17 top=165 right=189 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start Date
----- HyperTalk script -----
on mouseUp
  global x
  hide msg box
  ask "Enter Start Date (mm/dd/yy)"
  put empty into card field 1
  put empty into card field 2
  put empty into card field 3
  put empty into card field 4
  put empty into x
  put empty into z
  put empty into y
  if char 2 of it is "/" then put char 1 of it into z
  if char 2 of it is not "/" then put char 1 of it & char 2 of it into z
  if z < 13 then
    convert it to Abbr Date
    put it into x
    put word 2 of item 2 of it into a
    put word 1 of item 2 of it into b
    put char 4 of item 3 of it & char 5 of item 3 of it into c
    put a&"-"&b&"-"&c into card field 1
    convert x to Seconds
  else
    put "Wrong Format" into msg box
    play "boing"
  end if
end mouseUp



-- part 3 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=17 top=187 right=206 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 4 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=163 top=137 right=156 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Days
----- HyperTalk script -----
on mouseUp
  global x
  ask "Number Of Days"
  put empty into card field 2
  put empty into card field 3
  put empty into card field 4
  put it into card field 2
  multiply it by 24*60*60
  Put it + x into y
  convert y to abbr date
  put word 2 of item 2 of y into a
  put word 1 of item 2 of y into b
  put char 4 of item 3 of y & char 5 of item 3 of y into c
  put a&"-"&b&"-"&c into card field 4
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=162 top=194 right=215 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Weeks
----- HyperTalk script -----
on mouseUp
  global x
  ask "Number Of Weeks"
  put empty into card field 3
  put empty into card field 2
  put empty into card field 4
  put it into card field 3
  multiply it by 7*24*60*60
  Put it + x into y
  convert y to abbr date
  put word 2 of item 2 of y into a
  put word 1 of item 2 of y into b
  put char 4 of item 3 of y & char 5 of item 3 of y into c
  put a&"-"&b&"-"&c into card field 4
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=163 top=155 right=175 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 8 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=162 top=214 right=233 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 10 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=286 top=166 right=188 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Result Date


-- part 11 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=286 top=186 right=205 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part contents for card part 3
----- text -----
9-Jun-90

-- part contents for card part 8
----- text -----
52

-- part contents for card part 11
----- text -----
8-Jun-91